home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aac.d64
/
basic-ahls
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-28
|
346b
|
17 lines
10 REM AHL'S SIMPLE BENCHMARK
20 TS=TI: POKE53265,11: REM BLANK SCREEN
30 R=0:S=0
40 FOR N=1 TO 100: A=N
50 FOR I=1 TO 10
60 A=SQR(A): R=R+RND(1)
70 NEXT I
80 FOR I=1 TO 10
90 A=A^2: R=R+RND(1)
100 NEXT I
110 S=S+A: NEXT N
120 POKE53265,27: REM TURN SCREEN ON
130 PRINT" ACCURACY ",ABS(1010-S/5)
140 PRINT" RANDOM ",ABS(1000-R)
150 PRINT"TIME IN SEC",INT((TI-TS)*(100/60))/100
160 END